Sub Macro1()
Dim orng As Range
    Set orng = ActiveDocument.Range
    With orng.Find
        Do While .Execute(FindText:="[0-9]{1,2}", MatchWildcards:=True)
            If orng.Start = orng.Paragraphs(1).Range.Start Then
                orng.Text = vbCr ' or orng.Text = "" ' might be better?
            End If
            orng.Collapse 0
        Loop
    End With
End Sub