多分こうだろ

Sub Main()

    Dim data(8) As Integer

    '適当な値を入れる
    Dim r As New Random()
    For i As Integer = 0 To data.Length - 1
        data(i) = r.Next()
    Next

    Dim work As Integer

    'ソート開始
    For i As Integer = 0 To data.Length - 1
        For j As Integer = data.Length - 1 To i + 1 Step -1
            If data(j - 1) > data(j) Then
                work = data(j - 1)
                data(j - 1) = data(j)
                data(j) = work
            End If
        Next
    Next

    '結果出力
    For i As Integer = 0 To data.Length - 1
        Console.WriteLine(data(i).ToString())
    Next

End Sub