Set every line break on 8 points

[gloub]

Hi !

I'm trying to write a macro that would set every line break on 8 points, but the macro recorder keeps no trace of the font size :

Sub Format_Line_breaks_8_pts()'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Could anyone help me make it work ?
Many thanks !