Eliminar nuevas lineas en blanco en Docx

Hola,

Tengo la problemática que genero un archivo Docx desde una herramienta pero me agrega muchísimas líneas en blanco, incluso hay secciones que tienen hasta una hoja en blanco entre sí, ya intente cambiar el entrelineado y nada, pues he decidido utilizar VBA pero no logro saber el valor de una linea o como saber si está en blanco, recorro todo el libro con un sencillo loop:

For i = 1 To 10
Selection.MoveDown Unit:=wdLine, Count:=1
Next i

Existe otra forma de hacerlo?

Muchas gracias