In diesem Beispiel wird die Höhe jeder zweiten Zeile in Sheet1 auf 4 Punkt festgelegt.
For Each rw In Worksheets("Sheet1").Rows If rw.Row Mod 2 = 0 Then rw.RowHeight = 4 End If Next rw