こんな？

directotions = {{1, 0}, {-1, 0}, {0, -1}, {0, 1}};
NestList[# + Part[directotions, IntegerPart[Random[ ] 4 + 1]] &, 0, 100]