Вопрос по циклам

Sub РазбивкаНаСтраницы()
 
' Пользователю достаточно выделить текст перед котрым
' будет вставлен разрыв страницы, и запустить макрос
' на выполнение
 
' Выделенный текст сохраняю в переменную которую использую
' дальнейшего поиска и перехожу к началу документа
    FindStr = Selection.Text
    Selection.HomeKey Unit:=wdStory
 
' На первой странице разрыв ставить не нужно
' поэтому первый раз поиск запускаю вне цикла
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = FindStr
        .Forward = True
    End With
    Selection.Find.Execute
    Selection.MoveDown Unit:=wdLine, Count:=1
    
' Вот тут надо организовать цилк
' Здесь начало цикла
    ' Начинаем поиск
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = FindStr
            .Forward = True
        End With
        Selection.Find.Execute
    ' Сдвигаюсь на шаг в лево, вставляю разрыв страницы
    ' выравниваю по центру и спускаюсь на строчку вниз
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.InsertBreak Type:=wdPageBreak
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.MoveDown Unit:=wdLine, Count:=1
' Здесь конец цикла
End Sub

Sub FindNotice()
With ActiveDocument.Content.Find
    .Text = "Уведомление"
    While .Execute
        .Parent.Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.InsertBreak Type:=wdSectionBreakNextPage
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.MoveDown Unit:=wdLine, Count:=1
    Wend
End With
End Sub