Вот один из способов сделать это:
split(Bin, LenPart) ->
lists:reverse(split1(Bin, LenPart, [])).
split1(Bin, LenPart, Acc) when byte_size(Bin) =< LenPart ->
[Bin | Acc];
split1(Bin, LenPart, Acc) ->
<<Part:LenPart/binary, Rest/binary>> = Bin,
split1(Rest, LenPart, [Part | Acc]).