How do I get rid of two Line Breaks in a Row

Option Explicit 
Call Main() 
Sub Main()
	Dim strFileName, FSO, fileCSV, strFile, strLine, counter
	Dim previous_line
	strFileName = "H:\ac.txt"
	previous_line = "FIRST LINE"
	Call StartMessage(strFileName)
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set fileCSV = FSO.OpenTextFile(strFileName, 1)
	strFile = ""
	Do Until fileCSV.AtEndOfStream
		strLine = fileCSV.ReadLine & " "
		strLine = GetNewLineValue(strLine)
		strFile = strFile & strLine & vbCrLf
		previous_line = strLine
	Loop
	fileCSV.Close
	Set fileCSV = FSO.OpenTextFile(strFileName, 2)
	fileCSV.Write strFile
	fileCSV.Close	
	Set fileCSV = Nothing
	Set FSO = Nothing
	Call DoneMessage(strFileName)
End Sub 
Sub DisplayContents(s)
	Dim WshShell
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.Popup "String: " & ASC(s), 0, "Complete", vbInformation
	Set WshShell = Nothing
End Sub 
Sub StartMessage(strFileName)
	Dim WshShell
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.Popup "Starting clean up: " & strFileName, 0, "Complete", vbInformation
	Set WshShell = Nothing
End Sub 
Sub DoneMessage(strFileName)
	Dim WshShell
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.Popup "Finished clean up: " & strFileName, 0, "Complete", vbInformation
	Set WshShell = Nothing
End Sub 
Function CapitalizeFirstLetter(passed_string)
	Dim sa, result, counter
	If Len(passed_string) > 0 Then
		sa = Split(passed_string," ")
		For counter = LBound(sa) To UBound(sa)
			sa(counter) = Trim(sa(counter))
			If Len(sa(counter)) > 1 Then
				sa(counter) = UCase(Left(sa(counter),1)) & Right(sa(counter),Len(sa(counter))-1)
			End If
		Next
		CapitalizeFirstLetter = Join(sa)
	Else
		CapitalizeFirstLetter = passed_string
	End If
End Function 
Function GetNewLineValue(s)
	GetNewLineValue = Trim(s & " ")
	GetNewLineValue = Replace(GetNewLineValue,"  "," ")
	GetNewLineValue = Replace(GetNewLineValue,"Po ","PO ")
	GetNewLineValue = Replace(GetNewLineValue,"dj's","DJs")
	GetNewLineValue = Replace(GetNewLineValue,"Dj's","DJs")
	If Len(GetNewLineValue) > 0 Then
		GetNewLineValue = CapitalizeFirstLetter(GetNewLineValue)
	End If
End Function
                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75: