How to select first three rows after pagebreak ("^m") - vba

Question

I've tried to select first three rows after for each of page. It works fine only for first page. After first page I am finding manual page break ("^m") and try to select first three rows, but I got only two. Also this macros was written for Word 2007 and I try to rewrite to Word 2016
Do While .Execute(FindText:="^m") = True
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend
Selection.Range.Case = wdLowerCase
Selection.Range.Case = wdTitleWord
headNumber = "2"
lunghezza = 0
cap = Selection.Text
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=headNumber
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Text <> vbCr Then
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
End If
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Style = ActiveDocument.Styles("Custom Style " + NameOfStyle)

Answer 1

It's not a problem to select the first three lines of a document. I would probably use Selection.GoTo for that instead of trying to find manual breaks. I'm not clear what you want to do with the selection, so I'm going to put this stub of an answer in to show the page and line selection until I get some clarity on that. I tested this with about 10 pages of random text using both natural and manual page breaks, with some cases of multiple consecutive manual page breaks.
Sub test()
Dim p As Integer
For p = 1 To ActiveDocument.ActiveWindow.Panes(1).Pages.Count
Selection.GoTo wdGoToPage, wdGoToAbsolute, p
Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend
Next
End Sub