Combine values across columns into 1 text string

Okay so to simplify here is a method I am getting to work but I can't figure out an easier method to loop instead of if statement after if statement from -1.81 to +1.81

            For B = 8 To LastCol 'label columns as B, B=1 at column H
                'Enter 39 laser readings to string
                If (.Cells(2, B) <> "") And (.Cells(1, B).Value = -1.81) Or (.Cells(1, B).Value = -1.8) Then
                        Line = Line + CStr((.Cells(2, B)))
                End If
                If (.Cells(2, B) <> "") And (.Cells(1, B).Value = -1.71) Or (.Cells(1, B).Value = -1.7) Then
                        Line = Line + CStr((.Cells(2, B)))
                End If
                If (.Cells(2, B) <> "") And (.Cells(1, B).Value = -1.61) Or (.Cells(1, B).Value = -1.6) Then
                        Line = Line + CStr((.Cells(2, B)))
                End If
                If (.Cells(2, B) <> "") And (.Cells(1, B).Value = -1.51) Or (.Cells(1, B).Value = -1.5) Then
                        Line = Line + CStr((.Cells(2, B)))
                End If