> 8bitとなるはずの箇所が、出力したTiffファイルのプロパティを確認したところ、32bitとなっており
追加訂正しました。

変更前

Dim opt As New PdfPageRenderOptions() With {.BitmapEncoderId = Guid.Parse(WICTiffEncoder)}

変更後

Dim opt As New PdfPageRenderOptions() 'With {.BitmapEncoderId = Guid.Parse(WICTiffEncoder)} 

> うまく圧縮できていないのか
圧縮方式を変更してみて、どれを試してみてもまだ大きすぎるのであれば、
8bitカラーではなく、8bitグレースケールを選択してみるのはどうでしょうか。
https://dobon.net/vb/dotnet/graphics/grayscale.html