Not sure what you mean by, "set every line break on 8 points."

If you mean size the line break to 8, then:

Selection.Paragraphs(1).Range.Font.Size = 8

might work?